/* GUI CONVERTED from rcshmtb0.p (converter v1.76) Thu Apr 25 19:00:51 2002 */
/* rcshmtb0.p - RM Customer Schedules sr_wkfl replication                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.3.1.4 $                                                       */
/*V8:ConvertMode=Maintenance                                                  */
/* REVISION: 7.3    LAST MODIFIED: 11/09/95 BY: dxk *G1CT*                    */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98 BY: *K1Q4* Alfred Tan             */
/* REVISION: 9.1    LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane       */
/* REVISION: 9.1    LAST MODIFIED: 07/27/00 BY: *N0GX* Phil DeRogatis         */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00 BY: *N0KP* Mark Brown             */
/* $Revision: 1.3.1.4 $   BY: Jean Miller        DATE: 04/16/02  ECO: *P05H*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/* Note that the sr_lineid is defined at the schema-level to be an "x(8)",
   but this field contains an actual value wider than this.  Therefore we
   create an override format of "x(40)" and then declare the rest of the
   record in the form/frame declaration below */

define shared frame hf_sr_wkfl.
define shared variable global_user_lang_dir like lng_mstr.lng_dir.

{gplabel.i} /* EXTERNAL LABEL INCLUDE */

FORM /*GUI*/ 
   sr_lineid format "x(40)"
with frame hf_sr_wkfl THREE-D /*GUI*/.


FORM /*GUI*/ 
   sr_wkfl
with frame hf_sr_wkfl THREE-D /*GUI*/.


do with frame hf_sr_wkfl on error undo, retry:
   create sr_wkfl.
   assign sr_wkfl.
end.
